home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / ffccflow / ffccflow.lha / ffccc+flow / flow / gtx.for < prev    next >
Text File  |  1992-07-31  |  287b  |  11 lines
  1.       SUBROUTINE GTX(X,Y,CHARS)
  2. C! Plots the text at a given position
  3.       INCLUDE 'lunits.h'
  4.       CHARACTER*(*) CHARS
  5. C
  6.       WRITE(LOUTCH,100) x,' xrel ',y,' yrel moveto'
  7.   100 FORMAT(1X,F10.5,A,F10.5,A)
  8.       L = LENOCC(CHARS)
  9.       WRITE(LOUTCH,*) '(',CHARS(:L),') show'
  10.       END
  11.